[$ include( catfile( get_setting("dir_templates"), "tpl_header.html") ) $]

If you know the address to another channel, enter it here (else, choose below): TIP: Finding More Channels

Below are channels you may subscribe to. To add channels, check its box and then the "Subscribe" button.

[$ # figure out the next and previous letters my $letter = param('letter') || 0; my $letter_prev = chr(ord(lc($letter)) - 1); my $letter_next = chr(ord(lc($letter)) + 1); if ($letter eq "a") { $letter_prev = "0"; } if ($letter eq "z") { $letter_next = "0"; } if ($letter eq "0") { $letter_prev = "z"; $letter_next = "a"; } $OUT .= qq{ << }; # loop through each letter. foreach my $letter_nav ( "0", "a" .. "z" ) { my $letter_nav_uc = uc($letter_nav); if ($letter_nav eq "0" and $letter_nav ne $letter) { $OUT .= qq{ # }; } elsif ($letter_nav eq "0" and $letter_nav eq $letter) { $OUT .= qq{ # }; } elsif ($letter_nav eq $letter) { $OUT .= qq{$letter_nav_uc}; } else { $OUT .= qq{ $letter_nav_uc }; } } $OUT .= qq{ >> }; $]

[$ # load our matching channel letter, defaulting with 0. load_channels_by_letter( param('letter') || 0 ); my @channel_list = get_sorted_channels_list("title", "data"); # get the user's window target preference (which controls # whether links should open up in the current or a new window. my $link_target = get_setting( "user_link_target" ); # and display the HTML for each channel. foreach my $channel (@channel_list) { to_browser(qq{ }) } # and spit it out. $OUT = send_to_browser; $] Add? Name / Description     $channel->{title} $channel->{description} Add? Name / Description

[$ # figure out the next and previous letters my $letter = param('letter') || 0; my $letter_prev = chr(ord(lc($letter)) - 1); my $letter_next = chr(ord(lc($letter)) + 1); if ($letter eq "a") { $letter_prev = "0"; } if ($letter eq "z") { $letter_next = "0"; } if ($letter eq "0") { $letter_prev = "z"; $letter_next = "a"; } $OUT .= qq{ << }; # loop through each letter. foreach my $letter_nav ( "0", "a" .. "z" ) { my $letter_nav_uc = uc($letter_nav); if ($letter_nav eq "0" and $letter_nav ne $letter) { $OUT .= qq{ # }; } elsif ($letter_nav eq "0" and $letter_nav eq $letter) { $OUT .= qq{ # }; } elsif ($letter_nav eq $letter) { $OUT .= qq{$letter_nav_uc}; } else { $OUT .= qq{ $letter_nav_uc }; } } $OUT .= qq{ >> }; $]

Above are channels you may subscribe to. To add channels, check its box and then the "Subscribe" button.

If you know the address to another channel, enter it here (else, choose above): TIP: Finding More Channels

[$ include( catfile( get_setting("dir_templates"), "tpl_footer.html") ) $]